home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / The Golden Parrot / card_11454.txt < prev    next >
Text File  |  1990-08-20  |  2KB  |  61 lines
  1. -- card: 11454 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3426
  5. -- name: Water snakes
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global score
  9.   add 20 to score
  10.   if score <= 0 then
  11.     visual effect scroll up
  12.     go card "end"
  13.   end if
  14.   put score into field "scorebox"
  15. end openCard
  16. on mouseUp
  17.  
  18.   get field "textarea" of card "Communal Hut"
  19.   put it&return&"A liesurely smoke" into field "textarea" of card "Communal Hut"
  20.  
  21.   get field "textarea" of card "River Trail"
  22.   put it into holder
  23.   put the number of lines in field "textarea" of card "River Trail" into counter
  24.   repeat until counter = 0
  25.     get line counter of holder
  26.     if it contains "Lion" then
  27.       delete line counter of field "textarea" of card "River Trail"
  28.       put 1 into counter
  29.     end if
  30.     subtract 1 from counter
  31.   end repeat
  32.  
  33.   get field "textarea" of card "River Trail"
  34.   put it into holder
  35.   put the number of lines in field "textarea" of card "River Trail" into counter
  36.   repeat until counter = 0
  37.     get line counter of holder
  38.     if it contains "Monkeys" then
  39.       delete line counter of field "textarea" of card "River Trail"
  40.       put 1 into counter
  41.     end if
  42.     subtract 1 from counter
  43.   end repeat
  44.  
  45.   visual effect dissolve
  46.   go to card "River Trail"
  47.  
  48. end mouseUp
  49.  
  50.  
  51. -- part contents for background part 1
  52. ----- text -----
  53. Water snakes
  54.  
  55. -- part contents for background part 2
  56. ----- text -----
  57. As you wade across the river, you notice you are being followed by two water snakes. You toss out your piece of liver which they begin fighting over. This gives you time to rig your noose-on-a-stick, a contraption that makes it easy to catch snakes. Fine specimens for the Staten Island Zoo, you think, as you drop them into your collection bag.
  58.  
  59. -- part contents for background part 5
  60. ----- text -----
  61. 80